Public Class merchant_default
    Inherits System.Web.UI.Page
    Public helpaid As String = ""
    'Dim oUtils As utils
    Public aUserSession(13) As String
    'Protected WithEvents TheHeader1 As adm_header
#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            'TheHeader1.whichpage = 1
            'TheHeader1.pageid = "merchantmanage"
            'TheHeader1.iMenuLevel = -1
            ''aUserSession = TheHeader1.security()
            'TheHeader1.security()
            'TheHeader1.StartInterface(1)
            'TheHeader1.webCont = BuildWebContext()
            'TheHeader1.intTopNavLev = 1
            'TheHeader1.strPapeLv = "default"
            Response.Write(BuildWebContext())
        End If

        'aTopNav(0,5) = 1

    End Sub
    
    Private Function BuildWebContext() As String
        Dim strHtml As String
        strHtml = "<table><tr><td>"
        strHtml += "Please select one of the two Account Management main menu options.<p>"
        strHtml += " <li><a href=""./adm_findmerchants.aspx"">Find / Edit Account</a>"

        strHtml += "<li><a href=""./adm_addmerchant.aspx"">Create New Account</a></ul></td></tr></table>"

        Return strHtml

    End Function
End Class
